home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / cattest.arc / TIMESTUF.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-01  |  2KB  |  54 lines

  1. unit timestuf;
  2. interface
  3. uses DOS;
  4. Function Time_Stamp:string;
  5. Function Date_Stamp:string;
  6. {date/time stamp material, to be moved to its own unit later}
  7. implementation
  8. Function Time_Stamp:string;
  9.  
  10. VAR
  11.   Hour,Minute,Second,Sec100 : Word;   {0..23, hour
  12.                                        0..59, minute
  13.                                        0..59, second
  14.                                        0..99}
  15.   S_Minute,S_Hour,AMPM : string;
  16. BEGIN
  17.   GetTime(Hour,Minute,Second,Sec100);
  18.   if Hour > 12 then
  19.     begin
  20.       AMPM := 'PM';
  21.       Hour := Hour - 12;
  22.       end
  23.       else
  24.         AMPM := 'AM';
  25.   Str(Hour:2,S_Hour);
  26.   Str(Minute:2,S_Minute);
  27.   Time_Stamp := S_Hour+AMPM+', '+S_Minute+' minutes';
  28. END;
  29. Function Date_Stamp:string;
  30. CONST
  31.   Month_Name : array[1..12] of string =
  32.               ('January','February','March','April','May','June',
  33.               'July','August','September','October','November','December');
  34.   Day_Name : array[0..6] of string =
  35.              ('Sunday','Monday','Tuesday','Wednesday','Thursday',
  36.               'Friday','Saturday');
  37. VAR
  38.   Year,Month,Day,DayofWeek : Word;    {1980..2099, year
  39.                                        1..12, month
  40.                                        1..31, day
  41.                                        0..6, Sunday .. Saturday}
  42.  
  43.  
  44.   S_Day,S_Year : string;
  45. BEGIN
  46.   GetDate(Year,Month,Day,DayOfWeek);
  47.   Str(Day:2,S_day);
  48.   Str(Year:4,S_Year);
  49.  
  50.   Date_Stamp := Day_Name[DayofWeek]+' '+Month_Name[Month]+' '+
  51.                      S_Day+', '+S_Year;
  52. END;
  53. END.
  54.